home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / pcbk / 04yononk / 00057.ls < prev    next >
Encoding:
Text File  |  1995-06-01  |  468 b   |  28 lines
  1. on enterFrame
  2.   global gintr
  3.   preLoad()
  4.   if gintr = 1 then
  5.     puppetTransition(23, 2, 2)
  6.     set gintr to 0
  7.   end if
  8. end
  9.  
  10. on exitFrame
  11.   global gprev, gnext, grtrv
  12.   repeat while soundBusy(2)
  13.   end repeat
  14.   sound playFile 2, "04.mon"
  15.   waitticks(360)
  16.   disablebuttons()
  17.   if grtrv = 1 then
  18.     puppetTransition(13, 2)
  19.     set grtrv to 0
  20.   else
  21.     if gprev = 1 then
  22.       puppetTransition(12, 2, 2)
  23.     else
  24.       puppetTransition(11, 2, 2)
  25.     end if
  26.   end if
  27. end
  28.